home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 73 / 073.d81 / paint manual (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  115 lines
  1. 10 a$=" "
  2. 20 ifa=0thena=1:load"routines",8,1
  3. 30 ifa=1thena=2:load"paint manual.o",8,1
  4. 40 of=2:goto260
  5. 41 fori=1to15:gosub60:next:return
  6. 42 fori=1to15:gosub80:next:return
  7. 43 poke214,24:print"[145]"spc(15)"[204][207][193][196][201][206][199]...[145]":poke646,cu:return
  8. 50 rem scroll up
  9. 60 ifof>(h-16)thenreturn
  10. 69 of=of+1:sys51206:printleft$(hd$,20)""a$(of+15):return
  11. 70 rem scroll down
  12. 80 ifof=1thenreturn
  13. 89 of=of-1:sys51209:print""a$(of):return
  14. 90 close4:open4,4,7:ln=5:t$="":print#4,x$spc(21)a$(1)x$x$spc(21)a$(3)x$x$;
  15. 100 ps=lf:print#4,spc(lf);:fori=5toh-2:gosub160:gosub170:if(ps+len(a$(i)))<=rithengosub150:next:goto250
  16. 110 lx=1:forix=1tolen(a$(i)):on-(mid$(a$(i),ix,1)=" "orix=len(a$(i)))gosub130:next   
  17. 120 ps=ps+1:print#4," ";:next:goto250
  18. 130 if(ix-lx+ps)>=rithengosub200
  19. 140 print#4,mid$(a$(i),lx,ix-lx+1);:ps=ps+ix-lx+1:lx=ix+1:return
  20. 150 print#4,a$(i)" ";:ps=ps+len(a$(i))+1:return
  21. 160 ifps<>lfthenifleft$(a$(i),3)="   "orleft$(a$(i),3)="[160][160][160]"thengosub200:return
  22. 170 ifa$(i)=""ora$(i)=" "thengosub200:gosub200:i=i+1:ifi=h-1then190
  23. 180 ifa$(i)=""anda$(i-1)=""theni=i+1:on-(i=h-1)goto190:goto180
  24. 190 return
  25. 200 print#4,x$spc(lf);:ps=lf:ln=ln+1:ifln<57thenreturn
  26. 210 print#4,x$x$x$x$x$x$x$x$x$;:iftf=0thengosub230
  27. 220 print#4,x$,x$,x$,x$,x$spc(lf);:ln=5:return
  28. 230 ms$="[206]ext sheet/[210][197][212][213][210][206]/^":gosub420:poke198,0:wait198,1:geta$
  29. 240 ifa$<>"^"thenms$="[208]rinting...":gosub420:return
  30. 250 print#4,:close4:return
  31. 260 a$="":dima$(420):gosub360:hd$="":print"[147][159]";
  32. 270 print"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  33. 280 print"[159]                                        ";
  34. 290 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  35. 300 poke49152,4:poke49153,19:poke49154,1:poke49155,38
  36. 310 rv=0:bx=0:ex=40:by=3:bd=16:bc=7:gosub380:gosub610:poke53281,0:poke53280,0
  37. 320 bx=1:ex=39:by=21:bd=1:bc=3:gosub380
  38. 330 ln$="                                      ":x$=chr$(13):cu=3:n=197
  39. 340 fi$="t.paint":pr$="[208][160][193][160][201][160][206] [212][160][160] [194] [217] [160][160][206][160][213][160][205][160][194][160][197] [210]":lf=10:ri=75
  40. 350 print"[159]";spc(20-len(pr$)/2)pr$:goto440
  41. 360 ba$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  42. 370 a$[178]"(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd":[129]i[178]1[164]6:bd$[178]bd$[170]a$:[130]:[142]
  43. 380 oc[178][194](646):[151]646,bc:rv$[178]"":[139]rv[167]rv$[178]"
  44. 390 poke211,bx:poke214,by:sys58732:printrv$"[176]"left$(ba$,ex-bx-2)"[174][157]";
  45. 400 printrv$left$(bd$,bd*3):printrv$spc(bx)"[145][173]"left$(ba$,ex-bx-2)"[189]
  46. 410 [151]211,bx:[151]214,by[170]1:[158]58732:[153]rv$[200](bd$,bd[172]3)"":[151]646,oc:rv[178]0:[142]
  47. 420 [141]430:[153]"sys"[200](hd$,23)[166]20[171][195](ms$)[173]2)ms$"open":[142]
  48. 430 [153][200](hd$,23)""[200](ln$,36):[142]
  49. 440 h[178][171]1:l[178]1:[141]43:[159]2,8,2,fi$[170]",p,r":[161]#2,a$,a$
  50. 450 [158]828,2,40:h[178]h[170]1
  51. 460 a$(h)[178]a$:[139]h[178]17[167][141]550:[141]700
  52. 465 [139]st[179][177]0[167][160]2:[151]646,0:[141]43:[141]700:l[178]0
  53. 480 [161]k$:[145][171](l[178]1[175]k$[178]"")[137]450:[139]k$[178]""[167]480
  54. 485 [139]he[167][141]560:[137]480
  55. 490 [145][171](k$[178]"")[171]2[172](k$[178]"on")[171]3[172](k$[178]"p")[171]4[172](k$[178]"c")[141]60,80,800,770
  56. 500 [145][171](k$[178]"q")[171]2[172](k$[178]"")[171]3[172](k$[178]"")[171]4[172](k$[178]"h")[141]660,1070,1080,2010
  57. 505 [145][171](k$[178]"input")[171]2[172](k$[178]"goto")[171]3[172](k$[178]"let")[141]41,42,42
  58. 540 [137]480
  59. 550 [151]214,4:[151]211,0:[151]646,cu:[153]"on";:[129]i[178]1[164]16:[153]""ln$:[130]
  60. 560 [151]646,cu:[151]214,4:[153]"on";:[129]i[178]0[164]15
  61. 565 [153]""a$(i[170]of)[200](ln$,38[171][195](a$(i[170]of))):[130]:he[178]0:[142]
  62. 590 [139]l[167][153]"open
  63. 600 return
  64. 610 fori=217to242:pokei,peek(i)or128:next:return
  65. 660 ms$="[209]uit?  [193]re you sure?  ([217]/[206])":gosub420:poke198,0
  66. 670 geta$:ifa$<>"y"anda$<>"n"then670
  67. 680 ifa$<>"y"thengosub430:gosub700:return
  68. 690 goto740
  69. 700 ms$=" ":gosub420
  70. 710 poke214,22:print"[145][158] [195][210][211][210]-[213][208]/[196][206][160][146][159] scan  [158] [200] [146][159] help ":return
  71. 740 open15,8,15,"r0:paint boot=paint boot":input#15,er:close15
  72. 745 ifer<>63thenprint"[147]":end
  73. 750 a$="paint boot":q$=chr$(34):print"[147]":print"[144]load"q$a$q$",8
  74. 760 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  75. 770 [139]h[179]15[167][142]
  76. 780 cu[178]cu[170]1:[139]cu[178]16[167]cu[178]1
  77. 790 [151]646,cu:[141]560:[142]
  78. 800 [139]l[167][141]2000:[142]
  79. 810 [160]15:[160]4:[159]15,4,8:[160]15:[139]st[167][151]53281,1:[151]53281,0:[142]
  80. 820 ms$[178]"(NULL)ingle sheet or (NULL)ractor? ((NULL)/(NULL)/^)":[141]420
  81. 830 [161]a$:[139]a$[179][177]"s"[175]a$[179][177]"t"[175]a$[179][177]"^"[167]830
  82. 840 [139]a$[178]"^"[167][141]700:[142]
  83. 850 tf[178]1:[139]a$[178]"s"[167]tf[178]0
  84. 860 ms$[178]"(NULL)argins: (NULL)valasc(NULL):"[170][196](lf)[170]" (NULL)right$chr$left$(NULL):"[170][196](ri)[170]" ((NULL)/(NULL))":[141]420
  85. 870 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]870
  86. 880 [139]a$[178]"n"[167][141]930
  87. 890 ms$[178]"(NULL)et top of form/(NULL)eturn/^":[141]420:[151]198,0:[146]198,1:[161]a$:[139]a$[178]"^"[167]840
  88. 900 [141]920:[141]90:[160]4:[159]4,4,7:[129]i[178]ln[164]67:[152]4,:[130]:[160]4
  89. 910 [141]700:[142]
  90. 920 ms$[178]"(NULL)rinting...":[141]420:[142]
  91. 930 ms$[178]" ":[141]420
  92. 940 [151]214,22:[153]"onopensyslen(NULL)(NULL)(NULL)-up/down/(NULL)val(NULL)(NULL)(NULL)(NULL)  open(NULL)valasc(NULL)close(NULL)atn(NULL)chr$right$(NULL):   cmdcmdcmdsys"lf
  93. 950 [161]a$:[139]a$[179][177]"on"[175]a$[179][177]""[175]a$[179][177][199](13)[167]950
  94. 960 [145][171](a$[178]"on")[171]2[172](a$[178]"")[171]3[172](a$[178][199](13))[137]970,980,990
  95. 970 lf[178]lf[170]5[170](40[172](lf[177]40)):[137]940
  96. 980 lf[178]lf[171]5[171](45[172](lf[179]1)):[137]940
  97. 990 [146]197,64
  98. 1000 [151]214,22:[153]"onsyslen(NULL)(NULL)(NULL)-up/down/(NULL)val(NULL)(NULL)(NULL)(NULL) open(NULL)right$chr$left$(NULL)close(NULL)atn(NULL)chr$right$(NULL)    cmdcmdcmdcmdsys"ri
  99. 1010 [161]a$:[139]a$[179][177]"on"[175]a$[179][177]""[175]a$[179][177][199](13)[167]1010
  100. 1020 [145][171](a$[178]"on")[171]2[172](a$[178]"")[171]3[172](a$[178][199](13))[137]1030,1040,1050
  101. 1030 ri[178]ri[170]5[170](55[172](ri[177]105)):[137]1000
  102. 1040 ri[178]ri[171]5[171](55[172](ri[179]65)):[137]1000
  103. 1050 [142]
  104. 1060 [153][194](197):[137]1060
  105. 1070 of[178]1:[141]550:[142]
  106. 1080 [139]h[179]16[167][142]
  107. 1090 of[178]h[171]15:[141]550:[142]
  108. 2000 ms$[178]"(NULL)ot available yet.  (NULL)till (NULL)(NULL)atnstr$ing...":[141]420:[146]197,64:[141]700:[142]
  109. 2010 [151]646,cu:[151]214,9:[151]211,0:[153]"on";:he[178]1
  110. 2015 [153]""ln$
  111. 2020 [153]" len(NULL)(NULL)(NULL) (NULL)(NULL)/str$(NULL)(NULL)(NULL) to scan    asc1 pages down"
  112. 2030 [153]" len(NULL)(NULL)(NULL)-(NULL) moves to bottom  asc7 pages up  "
  113. 2040 [153]" left$(NULL)(NULL)val moves to top       (NULL) to print   "
  114. 2050 [153]" len to change colors      (NULL) to quit    ":[153]""ln$:[142]
  115.